v.int := MagicAES.FormAlert (1, '[3][Die Kommandozeile zum Einpacken|des Infiles ist leer!|Bitte tragen Sie dort die|richtigen Befehle ein.][Nochmal]');
v.int := MagicAES.FormAlert (1, '[3][Die Kommandozeile zum Auspacken|des Outfiles ist leer!|Bitte tragen Sie dort die|richtigen Befehle ein.][Nochmal]');
ELSE
ex := TRUE;
IF LENGTH (txtArray^[1]) = 0
THEN
v.int := MagicAES.FormAlert (1, '[3][Kein Packer ausgewhlt!|Sind sie sicher, da das korrekt ist?][Ja|Nein]');
ex := v.int = 1;
END;
IF ex & (LENGTH (txtArray^[1]) = 0)
THEN
v.int := MagicAES.FormAlert (1, '[3][Kein Kommandozeile fr das|Terminalprogramm festgelegt!|Sind sie sicher, da das korrekt ist?][Ja|Nein]');
ex := v.int = 1;
END;
IF ex THEN EXIT; END;
END; |
(*
Pathquit: EXIT |
*)
ELSE
END;
mtUtils.ExclState (tree, but, MagicAES.SELECTED);
mtUtils.CalcArea (tree, but, r);
MagicAES.ObjcDraw (tree, but, 1, r);
END;
mtUtils.ExclState (tree, but, MagicAES.SELECTED);
mtUtils.CalcArea (tree, but, r);
MagicAES.ObjcDraw (tree, but, 1, r);
IF but = Pathok
THEN
getEdits(); (* editables holen *)
(* Strings bernehmen *)
MagicStrings.Assign (newPath, path);
MagicStrings.Append ('CAT.INF', path);
IF mtTextfiles.OpenTextfile (path, mtTextfiles.WRITE, 512, tf)
IF (res = 0) & (dta.dAttrib = SHORT(INTEGER({4})))
THEN
(* Name ist ein Ordnername *)
(* Nachfragen! *)
IF MagicAES.FormAlert (1,'[2][Install:|Du hast noch einen|Ordnernamen im Namen angegeben.|Soll CAT in diesem Pfad installiert|werden oder im ausgewhlten Pfad?][Auswahl|Name]') = 2
THEN
MagicStrings.Append (name, path);
MagicStrings.Append ('\', path);
name[0] := '';
END;
ELSIF (res = 0)
THEN
(* Nur Dateiname, ignorieren *)
ELSE
(* Kein Name, also neuer Ordnername! *)
res := MagicDOS.Dcreate (gName);
IF res # 0
THEN
info ('[3][Ordner konnte nicht|angelegt werden!][Abbruch]');